home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / sim. c64_sim.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  744b  |  21 lines

  1. 100 :  REM* SIMULATION VON SCHWINGUNGSVORGAENGEN *
  2. 105 :  REM* FUER C64 BITTE VORHER SIMON'S BASIC LADEN *
  3. 110 :  REM* ODER GRAPHIKBEFEHLE AN EIGENES SYSTEM ANPASSEN *
  4. 113 :
  5. 115 :
  6. 120 :  REM* KENNGROESSEN DES SCHWINGUNGSSYSTEMS *
  7. 130 EFQ=.01:D=0:A=0:WA=0
  8. 140 V=0:X=80: REM* ANFANGSBEDINGUNGEN *
  9. 150 :  XM=1:C=0: REM* X-MASSSTAB *
  10. 160 :  d1,6: REM* GRAPHIK EINSCHALTEN *
  11. 170 :  d0,100,319,100,1: REM* ABSZISSE *
  12. 180 :  d0,0,0,199,1: REM* ORDINATE *
  13. 190 FOR N=0TO319
  14. 200 V=V-D*V-EFQ*X-A*SIN(WA*N):X=X+V
  15. 210 :  IFABS(X)>XM*100THEN250: REM* d~OR VERMEIDEN *
  16. 220 :  IFC=0THENdN,100-X/XM,1:C=1:GOTO240: REM* 1.PUNKT SETZEN *
  17. 230 :  dN-1,100-XL/XM,N,100-X/XM,1: REM* PUNKTE VERBINDEN *
  18. 240 :  XL=X: REM* LETZTES X MERKEN *
  19. 250 NEXT
  20. 260 :  GOTO260: REM* WARTESCHLEIFE. AUSSTIEG MIT STOP-TASTE *
  21.